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etitle ot iseggerr - case or label constant array error routine 
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s++ 
; facility: 


VAX/VMS PL1 runtime Library. 
; abstract: 


This module contains the pl1 runtime routine for case and label array 
error handling. 


; author: r. heinen 18-jan-1979 
Modifications: 


1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
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. -sbttl pli$subscript - signal subscript range check 
pli$subscript - signal subscript range check for uninitialized label vector 
functional description: 


. 
| 
| 

This routine is used by the generated code to cause a subscript range check | 

to occur when an uninitialized label vector entry is used. 


inputs: 
none - JSB interface. 
outputs: 
program is exited on return from condition 


THT Se Se Se Oe Oe Be Oe Oe Oe Oe Be Se Oe Se Se Se 
+ 


-—1 
ee 


$ 

$rt_subscrip:: 
pushl #pli$_labelrange : 
calls # (95° {ees ione 


00000000 ' 8F 4 
Labelrange : program is done 


00000000'GF 01 
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PLISCAS = case or label constant array error ro 16-SEP-1984 Og: 19:3 AX/VMS Macro V04-00 Page 3 | 
Symbol <~ 66-SEP-1984 6:20 CPLIRTL.SRCJPLICASERR.MAR;1 na 
LIsss IRs rerteree } 
PLISRT SSUBSCR IP 
scien -ugseRle $8888888 ws | 
PLI$_ LABEL eeeereree 1 
SYSSEXIT terrane Gx 1 
foros neesceae om ee es 
! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
s Oe. 00000000 ( 0.) 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
-PLISCODE QO0O0001A ¢ 26.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
ee ed Seas eat oes ae + 
! \ Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 00:00:00.07 00:00:00.77 
pounene processing 72 00:00:00.535 be eS 4, 
s 1 62 00:00:00.44 90:00:03.94 
Synbol table sort 0 00:00:00.00 29:00:00.00 
s2 22 00:00:00.17 00:00:01.54 
Syabot table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.02 00:006:00.02 
Cross-reference output 9 00:00:00.00 00:00:00.00 
Assembler run totals 16 00:00:01.24 00:00:09.49 


The pork tng set Limit was 600 pages. 

879 bytes : gages? of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space 3 hy ye to hold 5 non-local and 0 local symbols. 
72 source Lines were read in Pass 1, producing 8 object records in Pass 2. 

2 pages of virtual memory were used to define 2 macros. 


ee 


Macro Library name Macros defined 
5 SS 225DUAGE: PLIRTL OBJIPLIRTMAC.MLB; 1 1 
$255$DUA28: (SYSLIBJSTARLET.MLB;2 1 
TOTALS (all qibets ed: 2 


| 
8 GETS were required to define 2 macros. 

There were no errors, warnings or information messages. 

MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLICASERR/OBJ=OBJ$:PLICASERR mens aprietebatadtonmae ence opted 
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